COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "clok"
C00005 ENDMK
C⊗;
BEGIN "clok"
REQUIRE "DDSUB.SAI[GRA,HPM]" SOURCE_FILE;
REAL X1,Y1,X2,Y2,SIZE; STRING S; INTEGER I,J,K,L,M,N,DUM;
INTEGER ARRAY DIGS[0:9];

PROCEDURE DIG(REAL X;INTEGER I);
 BEGIN INTEGER J;
 J←DIGS[I];
 IF J LAND 1 THEN RECTAN(X+.2-.05*SIZE,-.03,X+.2,.3);
 IF J LAND 2 THEN RECTAN(X-.2,.24,X+.2,.3);
 IF J LAND 4 THEN RECTAN(X-.2,-.03,X-.2+.05*SIZE,.3);
 IF J LAND 8 THEN RECTAN(X-.2,-.3,X-.2+.05*SIZE,.03);
 IF J LAND 16 THEN RECTAN(X-.2,-.3,X+.2,-.24);
 IF J LAND 32 THEN RECTAN(X+.2-.05*SIZE,-.3,X+.2,.03);
 IF J LAND 64 THEN RECTAN(X-.2,-.03,X+.2,.03);
 END;


DIGS[0]←'77; DIGS[1]←'41; DIGS[2]←'133; DIGS[3]←'163; DIGS[4]←'145;
DIGS[5]←'166; DIGS[6]←'176; DIGS[7]←'43; DIGS[8]←'177; DIGS[9]←'167;
OUTSTR("SIZE:"); SIZE←REALSCAN(S←INCHWL,DUM); IF SIZE=0 THEN SIZE←1;
SCREEN(-1,-1/SIZE,1,1/SIZE);
WHILE TRUE DO
 BEGIN
 N←CALL(0,"TIMER")%3600;
 IF N≠DUM THEN
  BEGIN
  DUM←N;
  M←N%60;
  N←N MOD 60;
  DDINIT;
  IF M%10 ≠ 0 THEN DIG(-.8,M%10);
  DIG(-.3,M MOD 10);
  DIG(.25,N%10);
  DIG(.75,N MOD 10);
  RECTAN(-.05,.1,0,.15); RECTAN(-.05,-.15,0,-.1);
  FOR I←1 STEP 1 UNTIL 5 DO FOR K←'37 STEP -1 UNTIL '32 DO 
   BEGIN GDDCHN(K); DPYUP(K); RDDCHN(K); END;
  END;
  CALL(1,"SLEEP");
 END;

END;